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ABSTRACT 
THIS IS A LOGIC | Test OF THE DRV11. TO ALLOW TESTING OF 

THE DATA LINES AND INTERRUPTS, A SPECIAL MAINTENANCE CABLE 
(BCOBR) IS USED BY DEFAULT. ALSO, A SPECIAL TEST MODULE 
IS REQ UIRED BY 0 Y OPTION TO TEST THE NEWDATA RDY AND 

NOTE: THE SPECIAL TEST MODULE IS FOR USE BY IN HOUSE 
MANUFACTURING ONLY 

SEE SECTION 5.2 

THIS TEST WILL OPERATE ON ONE DRV11. SPECIAL OPERATION- 
AL PROCEDURES ARE REQUIRED TO OPERATE ON OTHER THAN THE 
PRIMARY DRV11. SEE SEC. 5.4 

REQUIREMENTS 

EQUIPMENT 

SBC 11/21 

DRV11 

TEST CABLE (BCO8R) (BY OPTION) 


TEST MODULE (BY OPTION) 
(FOR IN HOUSE MANUFACTURING ONLY) 


STORAGE 
2.2.1 PROGRAM STORAGE = 4k 


LOADING PROCEDURE 
METHOD 

UNDER XXDP+ OR 
ABSOLUTE LOADER 
STARTING PROCEDURE 


200 = NORMAL ENTRY TO TEST ONE DEVICE 
TO LOAD AND EXECUTE 


1. UNDER XXDP+ OR LOAD PROGRAM WITH THE ABSOLUTE LOADER. 


- IF ANY PROGRAM OPTIONS ARE REQUIRED, SET THE AP- 
PROPRIATE BI7 IN THE SOFTWARE SWITCH REGISTER AT 
LOCATION 422. (REF. SECTION 5.1) 


SEQ 0002 — 
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4.1 


4.2 


i: START PROGRAM AT 200. 

. PROGRAM WILL PRINT "END OF PASS" FOLLOWING EACH PASS. 
CONTROL SWITCH SETTING 
THIS PROGRAM eotigg be A_SOFTWARE SWITCH eehiten FOR 
OPTION SELECTION. FOR IT TO OPERATE E OPERATOR MUST 
SELECT THE APPROPRIATE OPTION BY SETTING OR 
RESETTING THE RESPECTIVE BIT IN THE WORD. 
TO DO THIS , THE LSI-11 MUST BE IN ODT MODE. 
STARTING ADDRESS OR ADDRESSES 

200 = START OF TEST=-FOR NORMAL TESTING 
OPERATING PROCEDURE 


1. THE PROGRAM WILL CYCLE CONTINUOUSLY UNLESS HALTED 
OME ER CON 


BY THE OPERATOR, OR E OR 
2. TO HALT THE PROGRAM, DEPRESS THE BREAK KEY. ODT 
WILL DISPLAY THE PC WHICH IT 


A C WAS 
3. IF NEW OPTIONS ARE TO BE SELECTED IN THE SWR, THEY MUST 
BE SET AT THIS TI 
4. CONTINUE THE PROGRAM VIA A "P’' OR A "'G'* COMMAND. 


5.1 SOFTWARE SWITCH SETTINGS 


BIT15 = CONTINUE ON ERROR (100000) 
BIT14 = LOOP ON CURRENT ERROR (040000) 
BIT13 = NOT USED (020000) 
BIT12 = NOT USED (010000) 
BIT11 = NOT USED (004000) 
BIT10 = LOOP ON CURRENT TEST (002000) 
BIT9 = RUN TEST MODULE (001000) 
BITS = INHIBIT WRAP CABLE | (000400) 
BIT? = NOT USED * (000200) 
BIT6 = NOT USED (000100) 
BITS = NOT USED (000040 
BIT4 = NOT USED (000020 
BITS = NOT USED (000010) 
BIT2 = NOT USED (00 

BIT1 = NOT USED (000002) 
BITO = NOT USED (000001) 


5.2 SELECTION OF TEST OPTIONS 


1. 1 NEWDATA of AND sar tenth SIGNALS, 

T BIT9 IN THE SuITeH REGISTER toe. “kee? 
NOTE: THE SPECIAL MODULE IS FOR USE BY IN HOUSE 

MANUFACTURING ONLY. 


2. THIS TEST WILL RUN WITH THE WRAP CABLE BY DEFAULT. 
TO INHIBIT TESTING WITH THE WRAP CABLE, THE OPERATOR 


SEQ 0003 
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| CNKAFA.P11 28-DEC-82 14:53 SEQ 0004 
oe) MUST SET BITS IN THE SWITCH REGISTER (LOC. 422). 
seer 5.3 WRAP CABLE 
eare THE WRAP CABLE IS REQUIRED TO TEST TRANSFER OF — 


INTO AND I tl OF THE INPUT BUFFER, AND THE DEVIC 


eore INTERRUPT 

5849 MOTE si28ss THIS DIAGNOSTIC IS APPROXIMATELY 95% EFFECTIVE 

5850 WHEN RUN WITH THE WRAP CABLE, AND APPROXIMATELY 
363) 60-70% EFFECTIVE WHEN RUN WITHOUT IT. 

eth 5.4 TESTING OTHER DRV11 MODULES 

5855 TO TEST A DRV11 NOT ADDRESSED AS 174500 OR 

5856 VECTORED AT 340, THE OPERATOR MUST ae THE NEW ADDRESSES 


| 

5857 AND VECTORS TO THE PROGRAM BY DEPOSITING THEM AT 

5858 THE LOCATIONS TAGGED BY "RCSR'’ IN THE BEGINNING OF THE LISTING. 

5859 THE ORDER IS AS FOLLOWS: 

5861 RCSR: CSR_ADDRESS 

5862 OUTPUT BUFFER ADDRESS 

5863 INPUT BUFFER ADDRESS 

5864 HIGH BYTE ADDR. OF OUTPUT BUFFER OR 

5865 |. (OUTPUT BUFFER ADDR =1) 

5866 vA", INTERRUPT VECTOR ADDRESS 
5867 "A" ADDR 


ESS 
5868 *B" INTERRUPT VECTOR ADDRESS 
5869 "B’’ ADDRESS + 2 


5871 5.5 EXECUTION TIME 

5875 TYPICAL 15 TIMES (ONE PASS) 
5874 QUICK VERIFY 

5875 WITH WRAP CABLE 10 SEC. 
5878 6. ERRORS 

5880 6.1 ERROR REPORTING 


5882 ALL ERROR REPORTS WiLL BE DONE VIA A HALT WITHIN THE 
5883 fons og THIS WILL wee ODT aeekiton ST REFER THE 


HE APT MAILBOX CONTAINS 
5887 THE ERROR NUMBER AND MAY BE USED TO REFERENCE THE DE- 
5888 SCRIPTION IN THE TABLE OF CONTENTS. 


5890 6.2 ERROR RECOVERY 
5893 IN ORDER TO CONT INS o THE OPERATOR MUST ISSUE A ‘P** TO 


5894 CONTINUE THE PROGRAM, OR MAY SET THE ERROR LOOP SWITCH 
1444 PRIOR TO CONTINUING. 


SESE MEI Pg ss ree 9 te 

5897 7. IMPORTANT TAGS 

5899 FOLLOWING IS A LIST OF IMPORTANT TAGS WITHIN THE LISTING 
? TAG COMMENT 


5 
5903 $SMAIL START OF THE PROGRAM MAILBOX. MANY CLUES TO 
PROBLEMS CAN BE FOUND HERE 


SFATAL ERROR NUMBER. USE THE TABLE OF CONTENTS TO 
5907 LOCATE THE ERROR INFORMATION AND/OR CODE 


9 STESTN CURRENT TEST NUMBER 


5911 $SPASS PASS COUNT OF THE PROGRAM WHEN ERROR WAS 
5912 DETECTED OR PROGRAM HALTED 


5914 SSWREG SOFTWARE SWITCH REGISTER 
5916 RCSR START OF UNIT UNDER TEST ADDRESSES 


SEQ 0005 


5921 8. LISTING 


5925 .TITLE CNKAFA 
5927 “NLIST MD,MC,CND 
“LIST ME 


0 
5931 000001 X=1 
2338 000001 N=1 


ne  - - e e 
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ADDRESSES. THE PROGRAM WAS RENAMED TO CNKAFAQ. 


58-4 
;REVISION B 
; 1. CHANGED TEST REQUIRING WRAP CABLE TO BE 
; INHIBITED BY BIT 8 OF THE SwR 
; 2. INITIALIZED A&B INTERRUPT VECTOR LOCATIONS 
; WITH TRAP CAT 
;REVISION c 
3 1. DOCUMENTATION CHANGE ONLY 
;REVISION D 
ADDED CODE TO PRINT OUT PROGRAMS TITLE 
:REVISION™ 
; 1. INCORPORATED PATCHES D1D2 AND D3 
; D1 == “INCORRECT PROGRAM COUNTER ADDRESSING AT 
; Loc. 1360 IN TEST 1, CAUSED WRONG ADDRESS 
; TO BE LOADED INTO LOC. 4. THIS RESULTS 
; IN PROGRAM HALTING AND THE FOLLOWING 
: MESSAGE TO BE DISPLAYED TO CONSOLE: 
; "ILLEGAL WORD 1** 
; D2 == “PROGRAM OVERPRINTS END PASS REPORT AND 
; D3 == “RELEASED VERSION OF PATCH D2 ON THE MEDIA 
; IS INCORRECT CAUSING CPU TO HALT AT 314 
; 2. MADE PROGRAM APT COMPATIBLE 
; CVKAFE DIAGNOSTIC WAS MODIFIED TO RUN ON 11/21 PROCESSOR 
; BY LOWERING PRIORITY 7 TO 6 AND INITIALIALIZING BRKVEC 
; AND LKVEC AND ALSO. CHANGING DEFAULT. CSR AND. VECT 


oe a ee ee a ee 


SEQ 0006 


re ee ee 
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001100 


000011 
000012 
000015 
000200 
177776 


177774 


170000 


06 
000007 
000006 
000007 
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sGENERAL REGISTER LOGIC TEST 
HLT=104000 
CSR=174500 


STKPTR=1200 
REGISTER DEFINITIONS 
RO=20 


3 SWITCHES 
SwW9=1000 
$W10=2000 
SW14=40000 
~SBTTL BASIC DEFINITIONS 
oa he OF THE STACK POINTER *** 1100 *#* 


STACK= 
-EQUIV EMT,ERROR ::BASIC DEFINITION OF ERROR CALL 
-EQUIV I0T,SCOPE t:BASIC DEFINITION OF SCOPE CALL 
z*MISCELLANEOUS DEFINITIONS 

T= 11 ::CODE FOR HORIZONTAL TAB 

LF= 12 ::CODE FOR LINE FEED 

CR= 15 33CODE FOR CARRIAGE RETURN 

CRLF= 200 [CODE FOR CARRIAGE RETURN-LINE FEED 
S= 177776 : [PROCESSOR STATUS WORD 

.EQUIVY PS. PSW 

STKLMT= 177776 3: STACK aim REGISTER 

PIRQ= 177772 ‘PROGRAM INTERRUPT REQUEST REGISTER 

DSWR= 177570 : | HARDWARE SWITCH REGIST ER 

DDISP= 177570 WARE DISPLAY 


REGISTE 
iotsts ie FOLLOWING opt’ START ADDRESS FOR SBC i721 IS ADDED 
3*GENERAL PURPOSE REGISTER DEFINITIONS 


RO= 20 3;GENERAL REGISTER 
R1= 21 2 ;GENERAL REGISTER 
R2= %2 3 ;GENERAL REGISTER 
R3= 23 2;GENERAL REGISTER 
R4= Rs 7;GENERAL REGISTER 
R5= 25 3;GENERAL REGISTER 
R6= 26 3GENERAL REGISTER 
R7= 27 hye REGISTER 
SP= 26 sSTACK POINTER 

PC= 27 PROGRAM COUNTER 


:*PRIORITY LEVEL DEFINITIONS 


SEQ 0007 


Ct Nt Tt Nt ct te te te at te ee te te ee ee ee ee ee ee ee ee ee a ee a ee ee et a a a a a a a a a a a a a a a a a a 
a hs ts kt st te hs 3 8 ss 5 ts 3 od 2 2) nt St 2 tt 
me a tt a et a a a Ne a a a a et a a et a es er a es a ee a ee ee a ee a ee a ee ee ee a a a a a a er ee a a a ee ee ae ae 


aa 
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000340 


100000 


000001 


100000 


000004 
000002 
000001 
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BASIC DEFINITIONS 


PRO= 0 

PRi= 40 

PR2= 100 

PR3= 140 

PR4= 200 

PR5= $60 

PR6= 00 

PR7= 340 

;* 

SW15 10000 
SW14= 40000 
SW13= 20000 
SWi2= 10000 
SWi1= 4000 
SWw10= 2000 
Swo9= 1000 
SwO8= 400 
Swo7= 200 
Sw06= 100 
SwO5= 40 

Sw04= 20 

SwO3= 10 

Swo2= 4 

Swol= 2 

swoo= 1 

EQUIV SW09,SW9 
EQUIV SW08,SW8 
EQUIV Sw07,SW7 
-EQUIV 06, 
EQUIV SWO5,SW5 
EQUIV SW04,SW4 
EQUIV SW03,SW3 
EQUIV Sw02,SW2 
EQUIV SWO1,SW1 
EQUIV SWO0,SWO 
BIT15= 0 
BIT14= 40000 
BIT13= 20000 
BITi2= 10000 
BIT11= 4000 
BIT10= 2000 
BITO9= 1000 
BITO8= 400 
BITO7= 200 
BITO6= 100 
BITO05= 40 
BITO4= 20 
BITO3= 10 
BITO2= 4 

BITO1= 2 

BITOO= 1 

-EQUIV B1T09,B1T9 
-EQUIV BITO8,B1T8 


PRIORITY LEVEL 0 
SEPRIORITY LEVEL 1 
;;PRIORITY LEVEL $ 
:;PRIORITY LEVEL 
zsPRIORITY LEVEL 4 
z;PRIORITY LEVEL 5 
ssPRIORITY LEVEL 6 
s;PRIORITY LEVEL 7 


;*DATA BIT DEFINITIONS (BITOO TO BIT15) 
100000 


cS  - - rr eee 


a9 
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| aw EQUIV BITO7.B1T7 
i; 1) -EQUIV BIT06,BIT6 
| =) -EQUIV BITOS,B1T5S 
; @ -EQUIV BIT04,B1T4 
(1) -EQUIV BIT03,81T3 
(1) -EQUIV BITO2,BIT2 
(1) -EQUIV BITO1,B1T1 
(1) .EQUIV BITOO,BITO 
(1) ;*BASIC "CPU" TRAP VECTOR ADDRESSES 
(1) 000004 ERRVEC= 4 33 TIME OUT AND OTHER ERRORS 
(1) 000010 RESVEC= 10 RESERVED AND ILLEGAL INSTRUCTIONS 
(1) 000014 TBITVEC=14 331" BIT 
(1) 000014 TRIVEC= 14 7: TRACE TRAP 
(1) 000014 BPTVEC= 14 7:BREAKPOINT TRAP (BPT) 
(1) 000020 IOTVEC= 20 :EINPUT/OUTPUT TRAP (IOT) **SCOPE** 
(1) 000024 PWRVEC= 24 7:POWER FAIL 
(1) 000030 EMTVEC= 30 EMULATOR TRAP (EMT) **ERROR** 
(1) 000034 TRAPVE C=34 T:UTRAP'’ TRA 
(1) 000060 TKVEC= 60 3:TTY KEYBOARD VECTOR 
(1) 000064 TPVEC= 64 ::TTY PRINTER VECTOR 
(1) peeeee THE FOLLOWING BREAK VECTOR AND LINE CLOCK VECTOR ARE INCLUDED 
(1) 000100 LKVEC= 3:LINE CLOCK VECTOR 
(1) 000140 BRKVEC= 140 7:BREAK VECTOR 
(1) 000240 PIRQVEC=240 7:PROGRAM INTERRUPT REQUEST VECTOR 
6033 .ENABLE ABS 
6034 000000 .=0 
6038 000000 000002 +2 
(1) 000002 000000 HALT 
(1) 000006 .+ 
(1) 000006 000000 HALT 
(1) 000010 000012 .+ 
(1) 000012 000000 HALT 
(1) 000014 000016 +2 
(1) 000016 000000 HALT 
(1) 000020 000022 .+ 
(1) 000022 000000 HALT 
(1) 000024 000026 .+ 
(1) 000026 000000 HALT 
(1) 906030 000032 +2 
(1) 000032 000000 HALT 
(1) 000034 000036 .+ 
(1) 000036 000000 HALT 
(1) 000040 000042 + 
(1) 000042 000000 HALT 
(1) 4 000046 + 
(1) 000046 000000 HALT 
(1) 000050 000052 
(1) 000052 000000 HALT 
(1) 000054 000056 + 
(1) 000056 000000 HALT 
(1) 000060 00006 .+ 
(1) 000062 000000 HALT 
(1) 000064 000066 .+ 
(1) 000066 000000 HALT 
6039 000100 .=100 





cy on 
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| 6040 000100 000102 102 
6041 000102 000002 RTI ; RTI FOR POSSIBLE CLOCK INTERRUPT 
| 6045 000104 000106 +2 
(1) 000106 000000 HALT 
(1) 000110 000112 .+ 
(1) 000112 000000 HALT 
(1) 000114 000116 + 
(1) 000116 000000 HALT 
(1) 000120 000122 + 
(1) 000122 000000 HALT 
(1) 000124 000126 .+ 
(1) 000126 000000 HALT 
(1) 000130 000132 .+ 
(1) 000132 000000 HALT 
(1) 000134 000136 +2 
qd) 36 000000 HALT 
(1) 000140 000142 .+ 
(1) 000142 000000 HALT 
(1) 000144 000146 .+ 
(1) 000146 000000 HALT 
(1) 000150 000152 +2 
(1) 000152 000000 HALT 
(1) 000154 000156 + 
(1) 000156 000000 HALT 
(1) 000160 000162 .+ 
(1) 000162 000000 HALT 
(1) 000164 000166 +2 
(1) 000000 HALT 
(1) 000170 000172 .+ 
(1) 000172 000000 HALT 
6046 000200 .=200 
6047 000200 005067 000202 CLR SPASS 3 CLEAR PASS COUNT 
6048 000204 005067 000172 CLR SFATAL 
6049 000210 005067 000170 CLR STESTN 
6050 000214 000137 001246 JMP aaSTART1 sINITIAL START 
6051 000300 .=300 :DEVICE INTERRUPT VECTORS 
6052 000300 000302 +2 
6053 000302 000000 HALT 
6054 04 000306 .+ 
6055 000306 000000 HALT 
6056 000400 .=400 
6057 .SBTTL APT MAILBOX-ETABLE 
(2) : FERRARA AEE RAE EREEE TEER EEAEREREERERAREEREEEEREEEEREEEERE EEE 
(1) EVE 
(1) 000400 $MAIL: :7APT MAILBOX 
(1) 000400 000000 SMSGTY: .WORD AMSGTY 3: MESSAGE TYPE CODE 
(1) 000402 000000 SFATAL: .WORD AFATAL ;;FATAL ERROR NUMBER 
(1) 000404 000000 STESTN: .WORD ATESTN ::TEST NUMBER 
(1) 000000 PA ~WORD APASS§ ::P 
(1) 000410 000000 $DEVCT: .WORD ADEVCT ;::DEVICE COUNT 
(1) 000412 000000 $UNIT: .WORD AUNIT :31/0 UNIT NUMBER 
(1) 000414 000000 SMSGAD: .WORD AMSGAD ;;:MESSAGE ADDRESS 
(1) 000416 000000 $MSGLG: .WORD AMSGLG 3 Z MESSAGE LENGTH 
(1) 000420 SETABLE: sAPT ENVIRONMENT TABLE 
(1) 000420 000 SENV: .BYTE AENV  :;ENVIRONMENT BYTE 
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AFA.P11  28-DEC=82 14:53 APT MAILBOX-E TABLE SEQ 0011 
000421 000 SENVM: BYTE | AENV 
“ENVIRONMENT MODE BtT $ 
000422 000000 $SUREG: .WORD ASUREG s APT SWITCH REGISTER 
000424 000000 SUSWR: .WORD AUSWR i USER SWIT 
000426 000000 SCPUOP: ;WORD ACPUOP ::CPU TYPE, Opt ions 
it BITS Ws-112¢PU T YPE 
* /04=01, M1705 02,11/20=03, 11/40=04,11/45=05 
ie 11770=06-PD 0=07,0=10 
* BIT 10=REAL TIME CLOCK 
* BIT 9=FLOATING POINT PROCESSOR 
7 BIT 8=MEMORY MANAGEMENT 
000430 SETEND: 


»MEXIT 
-SBTTL APT PARAMETER BLOCK 


SERRA AEEEAEREEEEEEEEEEE EERE REEREKEEEEEEEREEREEEEREREKERERE 


:SeT LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


fF ERERAAEEE AEE ER EEE EEE EEE EERE AREER EEEREAEEEEEEEEREREKEREREREER 


ao 


000430 


sees CURRENT LOCATION 


Pe te te te ae ee Let ee Lente intitle tetetaleal“Lateteateatateteatalatlealoatiate’ 
eee ee ek ed ed ed ed \_) ed ed od od = a AL) SN OD et 2 2 = 2 2 = = 2 SS 
eh a a eh a A ee 


8 
000024 1=24 3;SET POWER FAIL TO POINT TO START OF PROGRAM 
000024 000200 200 FOR APT START UP 
000044 -=44 _ 3;POINT TO APT INDIRECT, ADDRESS PNTR. 
000044 000430 $APTHDR ::POINT TO APT HEADER BLOCK 
000430 aarSX. EERESET LOCATION. COUNTER 
FERRARA AERA EREEEEEEE EEE EEE EERE EEEREEEEERAEEEAEEREREREEEEEREE 
:SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
INTERFACE SPEC. 
000430 SAPTHD: 
000430 000000 $HIBTS: .WORD 0 ;;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
000432 000400 SMBADR: .WORD $MAIL ADDRESS OF APT MAILBOX (BITS 0-15) 
000434 000010 $TSTM: WORD 10 RUN TIM OF LONGEST TEST 
000436 000010 $PASTM: .WORD 10 :ERUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
000440 000000 SUNITM: :WORD 0 ITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
000442 000014 "WORD. SETEND~SHAIL72 : : LENGTH MAILBOXSETABLE (WORDS) 
6059 001200 -=1200 
6060 000410 DEVCNT=SDEVCT 
6061 000402 ERRNUM=$F ATAL 
6062 000426 OPTION=$CPUOP 
6064 THIS TABLE CONTAINS INITIAL REGISTER AND VECTOR ADDRESSES 
6066 001200 174500 RCSR: CSR 
6067 001202 174502 CSR+2 
6068 001204 174504 CSR+4 
6069 001206 174503 CSR+3 
6070 001210 000340 RCSR1: 340 
6071 001212 000342 342 
6072 001214 000344 344 
6073 001216 000546 346 
6075 ;THIS TABLE CONTAINS REGISTER AND VECTOR ADDRESSES OF THE DR11-C UNDER TEST 
6077 001220 174500 DRCSR: 174500 ADDRESS OF DR11=C STATUS REGISTER 
6078 001222 174502 DROBUF: 174502 ADDRESS OF DR OUTPUT BUFFER REG. 
6079 001224 174504 DRIBUF: 174504 ADDRESS OF DR INPUT BUFFER REG. 


(oe rn ee ee ree ee 


| m1 
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6080 001226 174503 DRBHIO: 174503 HIGH BYTE OF OUTPUT BUFFER REG. 
6082 001230 000340 DRVECA: 340 s INTERRUPT VECTOR OF UNIT UNDER TEST 
6083 001232 000342 DRLVLA: 342 
6084 001234 000344 DRVECB: 344 INTERRUPT VECTOR 
6085 001236 000346 DRLVLB: 346 
6086 001240 000000 XORFLG: 0 
6088 001242 000000 COUNT: 0 COUNT LOCATION 
6089 001244 000240 PL: 240 “PRIORITY LEVEL 
6091 001246 012706 001200 START1: MOV —s #STKPTR, SP 
6092 001252 000137 001256 JMP —s @#START 
6093 FERRARA ARIA EE EEE EEEEEEAEREREEEEREREEEEEERERE REE REEEEERERE RE EEREREEEE REE EERE 
6094 
44 s+ ROUTINE TO PRINT DIAGNOSTIC’S TITLE IF ALLOWED BY APT MODE 
6097 ALL CODE ADDED FOR TITLE PRINTOUT IS NOTED 
6098 : WITH A s+ IN THE COMMENT SECTION, 
6099 FERRARA EEEEERERERERE EE EE EEEEEREKEEERERAEREEEEEEEEEEREEEEEEEEREEAEEEEREAEEREREREERE EE EE 
6100 001256 132767 000040 177135 START: BITB #40, SENVM 3+ WILL APT ALLOW PRINTING? 
6101 001264 001013 BNE AROUND i+ NO BRANCH AROUND 
6102 001266 012700 004616 MOV #TITLE1,RO 3+ GET STARTING ADDRESS OF TITLE MSG 
6103 001272 105737 177564 LOOP1: TSTB a#TPS + CHECK IF TERMINAL READY 
6104 001276 100375 BPL —_—LOOP1 :¢ LOOP IF NOT 
6105 001300 112037 177566 MOVB (RO)+,a#TPB 3+ PRINT A CHARACTER 
6106 001304 001372 BNE LOOP1 3+ BRANCH BACK IF NOT DONE PRINTING 
6107 001306 105737 177564 LOOP:  TSTB a#TPS 
6108 001312 100375 BPL LOOP 
61 09 J PREAEAEEAEEEEEEREREE EEA EEE EEE EAE KEEEEEEEEEEEEAEEREEEEAEREREREREEREEEREREE EEE ES 
6110 
ott) ; INITIALIZE ADDRESS AND VECTORS 
6113 001314 012700 001200 AROUND: MOV #RCSR, RO ; GET ADDRESS OF UNIT UNDER TEST 
6114 001320 012701 005000 MOV #5000, R1 
6115 001324 077101 1$: SOB R1,1$° 
6116 001326 012701 001220 MOV #DRCSR,R1 
6118 001332 012737 004672 000024 MOV _—s PAIL, a#24 
6119 001340 012021? MOV (RO)+, (R1)+ ;LOAD INITIAL TEST ADDRESSES 
6120 001342 012021° MOV (RO)+,(R1)+ 
6121 344 012021 MOV (RO) +. (R1)¢ 
6122 001346 012021 MOV (RO) +, (R1)¢ 
6123 001350 012021 MOV (RO) +, (R1)¢ 
6124 001352 012021 MoV (RO)+,(R1)+ 
6125 001354 012021 MOV (RO)+,(R1)¢+ 
6127 DOES RESET CLEAR REGISTER? 
6128 001356 Tl: 
(3) 001356 012767 000001 177020 MOV —s- #1, STESTNN ; MOVE TEST NUMBER 10 MAILBOX 
6129 001364 016705 177630 LP1: MOV _—DRCSR.RS GET ADDRESS OF STATUS REGISTER 
6130 001370 106427 000200 MTPS #200 STURN OFF IN TERRUPT 
6131 001374 012737 001456 000004 MOV ss #ERR1, a8 SET TIME QUT TRAP VECTOR 
6132 001402 012777 177777 177612 MOV —s#=1 ,@DROBUF PRESET OUTPUT BUFFER 
6133 001410 000005 RESET CLEAR DATA REGISTER 
6134 001412 017700 177604 MOV. — @DROBUF ,RO GET RESULT OF RESET 
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040000 
000001 
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176752 


040000 
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176714 
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001200 
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177420 
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040000 
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176552 
176542 


176540 
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APT PARAMETER BLOCK 
BEQ CON 
BIT #BIT14,$SWREG ; CHECK FOR LOOP ON ERROR 
BNE LP1 ; GO TO LOOP ERROR 
MOV #1,$FATAL 
MOV #1,$MSGTY 3: MOVE ERROR NUM TO MAILBOX 
TST SSWREG 3; CHECK FOR HALT ON ERROR 
BMI 1$ ; CONTINUE T 

18 HALT 7<DATA REG DID NOT CLEAR> 
BR CON 

ERR1: 
BIT #BIT14,$SWREG ; CHECK FOR LOOP ON ERROR 
BNE LP1 ; GO TO LOOP ERROR 
MOV #2,$FATAL 
MOV #1,$MSGTY ; MOVE ERROR NUM TO MAILBOX 
TST SSWREG 3; CHECK FOR HALT ON ERROR 
BMI 1$ 3; CONTINUE IF SET 

8 HALT 3<TIME WHEN ADDRESSING PLU> 
BIT #BIT10,$SWREG ; CHECK FOR LOOP ON TEST 
+y 53 ; GO TO LOOP ON TEST 

5$: MOV #STKPTR,SP sRESET STACK POINTER 
MOV #6,a#4 sRESTORE TIME OUT TRAP 
- 1$ 


CON: 712 

: TEST ‘'NEWDATA RDY" AND ‘'DATATRANS'’ SIGNALS IN PLU 
NOTE****** THE PLU TEST MODULE MUST BE INSTALLED 
TO EXECUTE THIS TEST 


ist2: 


MOV #2,$TESTN : MOVE TEST NUMBER TO MAILBOX 
BIT #BIT9,$SWREG 

BEQ TST3 3 SKIP TEST IF NOT SELECTED 
MOV - #STKPTR,SP 3 SET " STACK POINTER 
RESET >; CLEAR EVERYTHING 


: THIS RESET SHOULD at EL THE 
SIGNAL LATCHES IN THE TEST MODULE 
MOV #31460, aDROBUF ; PRIME THE LATCHES 


NOP 
NOP : TIMING ALLOWANCE 
MOV @DRIBUF ,RO DATA 
BIT #B1T0,RO : CHECK DATA. TRANS SIG 
BNE T2CON : CONTINUE IF PRESENT 
BIT #BIT14,$SWREG : CHECK FOR LOOP ON ERROR 
BNE TST2 : GO TO LOOP ERROR 
MOV #3, $FATAL 
MOV #1 SMSGTY ; MOVE ERROR NUM TO MAILBOX 
TST $Si > CHECK FOR WALT ON ERROR 
BMI 1 ; CONT INUE IF SET 

- HALT ;<NO DATA TRANS SIGNAL> 

T2CON: BIT #B1T1,R0 > CHECK NEW DATA RDY SIGNAL 
BNE T2CN1 3 COM iaue 
BIT #BITIG,SSWREG > Ch CK FOR LOUP O& ERROR 
BNE T2CO : GC TO LOOP ERROR | 


SEQ 0013 
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ERROR 4 NO NEW DATA RDY SIGNAL 


MOV #4, SFATAL 
#1,$" 


MOV » SMSGTY : MOVE ERROR NUM TO MAILBOX 
TST SSWREG ; CHECK FOR HALT ON ERROR 
BMI 1$ 3 CONTINUE IF SET 

HALT :<NO NEW DATA RDY SIGNAL> 


CLEAR EVERYTHING 


1$: 
T2CN1: ~3 i 


MOV @DRIBUF ,RO ; CHECK SIGNAL LATCHES 
TST RO SHOULD BE CLEAR 
; CONTINUE IF 


CLEAR 
; CHECK FOR LOOP ON ERROR 
; GO TO LOOP ERROR 


@ 

m 

So 
Sete Pe See 


1$ 

BIT #B1T14,SSWREG 
T2CN1 

MOV #5, SFATAL 


MOV #1. SMSGTY ; MOVE ERROR NUM TO MAILBOX 
TST SSWREG ; CHECK FOR HALT ON ERROR 
BMI : CONTINUE IF SET 
Zh HALT :<SIGNALS DID NOT CLEAR> 
BIT #81110, $SUREG : CHECK FOR LOOP ON TEST 
aan BNE TST2 + GO TO LOOP ON TEST 
MOV STESTN : MOVE TEST NUMBER TO MAILBOX 
MOV rAd pg SALL ONES TO REGISTER 
MOV @DROBUF , RO 
TE ag 
BIT WBIT14,$SWREG ; CHECK FOR LOOP ON ERROR 
BNE TST3 : GO TO LOOP ERROR 
MOV #6, FATAL 
MOV #1. $MSGTY : MOVE ERROR NUM TO MAILBOX 
TST SSWREG : CHECK FOR HALT ON ERROR 
BMI : CONTINUE IF SET 
se HALT :<REGISTER WILL NOT HOLD ALL ONES> 
BIT #B1T10,$SWREG ; CHECK FOR LOOP ON TEST 
BNE TST3 : GO TO LOOP ON TEST 
gWRAP CABLE MUST BE INSTALLED TO EXECUTE THIS TEST 
MOV #4, STESTN : MOVE TEST NUMBER TO MAILBOX 
BIT #B1T8, $SWREG 
BNE TST5 sSKIP TEST IF NOT SELECTED 
MOV #=1, aDROBUF 
RESET :SET DATA TO ALL ONES 
Ist aDRIBUF SREGISTER SHOULD CLEAR 
BIT #BIT14, SSWREG ; CHECK FOR LOOP ON ERROR 
BNE TST4 : GO TO LOOP ERROR 
MOV #7, SFATAL 
MOV #1.SMSGTY : MOVE ERROR NUM TO MAILBOX 
TST SSWREG t CHECK FOR HALT ON ERROR 
BMI i$ : CONTINUE IF SE 
“ HALT :<REGISTER DID NOT CLEAR BY RESET> 


SEQ 0014 
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CNKAFA.P11 28-DEC 
(1) 002154 032767 
(1) 002162 001340 

6188 
6189 002164 
(2) 002164 012767 
6190 002172 012777 
6191 2200 017700 
6192 002204 022700 
6193 002210 001416 
6194 002212 032767 
(1) 002220 001361 
(2) 002222 012767 
(1) 2230 012767 
(1) 2236 005767 
(1) 002242 100401 
(1) 002244 000000 
(1) 2246 
(1) 002246 032767 
(1) 2254 001343 
6195 
6196 002256 
(2) 002256 012767 
6197 002264 012777 
6198 002272 017700 
6199 002276 022700 
6200 002302 001416 
6201 002304 032767 
(1) O06 12 1361 
(2) 14 012767 
(1) 002322 012767 
(1) 002330 005767 
(1) 23 100401 
(1) 002336 000000 
(1) 002340 
(1) 002340 032767 
(1) 002346 1343 
6202 
6203 
6204 002350 
(2) 002350 012767 
6205 002356 010502 
6206 002360 005722 
6207 002362 005003 
6208 002364 010312 
6209 002366 021203 
002370 001004 
005 
105 
001 


SNNVIN NW 


002000 


000001 


000007 


040000 
00012 


-So 
NS 
woe 
NO 
NO 
o— 


176240 


176202 


176152 
176142 


176146 


176120 
176730 


176110 


176060 
176050 


176054 


176026 


176012 


175759 
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ERROR 7 


TSTS: 


1$: 


TST6: 


1$: 


BUF TST: 


LP?7: 


5$: 


Cc 2 


REGISTER DID NOT CLEAR BY RESET SEQ 0015 


BIT #BIT10,$SWREG ; CHECK FOR LOOP ON TEST 
BNE TST4 : GO TO LOOP ON TEST 
MOV MOVE TEST NUMBER TO MAILBOX 
MOV oes8) SDROBUF :LOAD TEST DATA INTO BUFFER 
MOV @DROBUF , COPY DATA FROM BUFFER TO RO 
CMP #52525,R0 :COMPARE DATA 
BEQ 1 :BR IF DATA IS CORRECT 
BIT #BIT1S,$SWREG : CHECK FOR LOOP ON ERROR 
BNE TSTS ~ 6O TO LOOP ERROR 
MOV #10,SFATAL 
MOV #1,$MSGTY : MOVE ERROR NUM TO MAILBOX 
TST SSWREG + CHECK FOR HALT ON ERROR 
BMI = CONTINUE IF SET 
HALT :<INCORRECT DATA IN REG> 
BIT #BIT10,$SWREG ; CHECK FOR LOOP ON TEST 
BNE te T5 : GO TO LOOP ON TEST 
MOV ESTN MOVE TEST NUMBER TO MAILBOX 
MOV FiSeas5. @DROBUF $LOAD TEST DATA INTO BUFFER 
MOV @DROBUF . [COPY DATA FROM BUFFER TO RO 
CMP #125252.R0 : COMPARE DATA 
BEQ 'BR IF DATA IS CORRECT 
BIT WBIT14,$SWREG : CHECK FOR LOOP ON ERROR 
BNE : GO TO LOOP ERROR 
MOV #11, SFATAL 
MOV #1 ,SHSGTY : MOVE ERROR NUM TO MAILBOX 
TST $s t CHECK FOR HALT ON ERROR 
BMI > CONTINUE IF SE 
HALT :<INCORRECT DATA IN REG> 
BIT #BIT10,$SWREG ; CHECK FOR LOOP ON TEST 
BNE TST6 : GO TO LOOP ON TEST 

TEST RELIABILITY OF DR11-C OUTPUT BUFFER REGISTER 
MOV #7, STESTN : MOVE TEST NUMBER TO MAILBOX 
MOV R5.R2 GET ADDRESS oot DRCSR 
TST (Rd)+ :R2=ADDRES F OUTPUT BUFFER REG. 
CLR R : INIT TALTIE OOATA REGISTER 
MOV R3, (R2) + SEND THE DATA 
CMP Re), R3 : CHECK THE RECEIVED DATA 
BNE + ERROR IF NOT THE SAME 
INC 25 + INCREMENT THE DATA 
TSTB ss RB + CHECK FOR END OF DATA 
BEQ 1$ + CONTINUE N 
BR LP7 : GO TO SEND DATA IF NOT 
BIT WBIT14,$SWREG ; CHECK FOR LOOP ON ERROR 
BNE P?7 : GO TO LOOP ERROR 
MOV #12, $FATAL 
MOV #1, $MSGTY : MOVE ERROR NUM TO MAILBOX 
TST SSUREG + CHECK FOR HALT ON ERROR 
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CNKAFA.P11  28-DEC=82 14:53 ERROR 12 DATA INCORRECT IN REG SEQ 0016 | 
(1) 002432 100401 BMI 1$ CONTINUE IF SET 
1) 0024 000000 i HALT :<DATA INCORRECT IN REG> 
(1) 002436 032767 002000 175756 BIT #BIT10,$SWREG ; CHECK FOR LOOP ON TEST 
(1) 002444 001341 BNE TST? : GO TO LOOP ON 
gi$ :TEST THAT BYTE REFERENCE TO DROBUF AFFECT PROPER BYTE ONLY 
6218 002446 TST10: 
(2) 002446 012767 000010 175730 MOV #10, $TESTN : MOVE TEST NUMBER TO MAILBOX 
6219 002454 012777 177777 176540 TAG: MOV #-1, aDROBUF [SET ALL ONES IN BUFFER 
6220 002462 105077 176534 CLRB § a@DROBUF CLEAR LOW BYTE 
6221 002466 017700 176530 MOV @DROBUF ,RO :COPY DATA 
6222 002472 022700 177400 CMP #177400,RO ‘VERIFY THAT LOW BYTE IS CLEAR 
6223 002476 001416 BEQ 1$ 
6224 002500 032767 040000 175714 BIT #81114, $SUREG : CHECK FOR LOOP ON ERROR 
(1) 002506 001362 BNE : GO TO LOOP ERROR 
(2) 002510 012767 000013 175664 MOV n SFATAL 
(1) 002516 012767 000001 175654 MOV 1,$MSGTY : MOVE ERROR NUM TO MAILBOX 
(1) 002524 005767 175672 TST scuR EG : CHECK FOR HALT ON ERROR 
(1) 002530 100401 BMI 1$ > CONTINUE IF SET 
(1) 002532 000000 - HALT :<LOW BYTE FAILED TO CLEAR> 
(1) 002534 032767 002000 175460 BIT #BIT10,$SWREG ; CHECK FOR LOOP ON TEST 
ft 002542 001341 BNE TST10 : GO TO LOOP ON TEST 
6226 00254 TST11: 
(2) 002544 012767 000011 175632 MOV #11,$TESTN : MOVE TEST NUMBER 10 MAILBOX 
6227 002552 012777 177777 176442 MOV #-1, aDROBUF SSET ALL ONES IN BUFFER 
6228 002560 105077 176442 CLRB §aDRBHIO ‘CLEAR HIGH BYTE 
6229 002564 017700 176432 MOV @DROBUF ,RO 
6230 002570 022700 000377 CMP #377,R0 :VERIFY THAT HIGH BYTE IS CLEAR 
6231 002574 001416 BEQ 
6232 002576 032767 040000 175616 BIT #BIT14 ,SSUREG : CHECK FOR LOOP ON ERROR 
(1) 002604 001357 BNE TST11 : GO TO LOOP ERROR 
(2) 002606 012767 000014 175566 MOV #14, $FATAL 
(1) 002614 012767 000001 175556 MOV #1 ,SuSGTY : MOVE ERROR NUM TO MAILBOX 
(1) 002622 005767 175574 TST $SW : CHECK FOR HALT ON ERROR 
(1) 002626 100401 BMI : CONTINUE IF SET 
(1 002630 nt HALT :<HIGH BYTE FAILED TO CLEAR> 
(1) 002632 032767 002000 175562 BIT #B1T10, SSWREG ; CHECK FOR LOOP ON TEST 
(1) 002640 001341 BNE TST11 : GO TO LOOP ON TEST 
6233 00264 TST12: 
(2) 002642 012767 000012 175534 MOV #12, $TESTN : MOVE TEST NUMBER TO MAILBOX 
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2 14:5 ERROR 14 


CNKAFA.P11 HIGH BYTE FAILED TO CLEAR SEQ 0017 
6235 
6236 002650 005067 000110 CLR T12DAT ZCLEAR DATA LOCATION 
6237 002654 012704 00 £64 MOV #T12DAT,R4 ‘STORE ADDRESS OF DATA LOCATION 
6238 002660 005077 176336 CLR @DROBUF SCLEAR OUTPUT BUFFER 
6239 002664 105077 176336 TI2CON: CLRB § a@DRBHIO :CLEAR HIGH BYT 
6240 002670 105277 176332 3$: iNCB  aDRBHIO s INCREMENT HIGH BYTE 
6241 002674 105264 000001 INCB —s-: 1(R4) INCREMENT COMPARISON DATA 
6242 002700 027714 176316 CMP @DROBUF,(R4) = COMPARE DAT 
6243 002704 001004 BNE 6$ ‘BRANCH ON ERROR 
6244 002706 105764 000001 4$: TSTB  =—s_- 1 (RG) + FINISHED? 
6245 002712 001417 BEQ 1$ YES 
6246 002714 000765 BR 3$ SCONTINUE TESTING 
6247 002716 6$: 

(1) 002716 032767 040000 175476 BIT WBIT14,$SWREG ; CHECK FOR LOOP ON ERROR 

(1) 002724 001346 BNE TST12 : GO TO LOOP ERROR 

(2) 002726 012767 000015 175446 MOV #15, SFATAL 

(1) 002734 012767 000001 175436 MOV #1,$MSGTY : MOVE ERROR NUM TO MAILBOX 

(1) 002742 005767 175454 TST SSWREG + CHECK FOR HALT ON ERROR 

(1) 002746 100401 BMI 1$ : CONTINUE IF SET 

(1) 902750 000000 on HALT :<DATA INCORRECT IN REG> 

(1) 002752 032767 002000 175442 BIT #B1T10,$SWREG ; CHECK FOR LOOP ON TEST 

(1) 002760 001330 BNE TST12 : GO TO LOOP ON TEST 
6248 002762 000401 BR TST13 
6249 002764 TI2DAT: .WORD 0 
6250 sCONTROL STATUS REGISTER (DRCSR) TESTS. 

6251 002766 TST13: 

(2) 27 012767 000013 175410 MOV #13,$TESTN : MOVE TEST NUMBER TO MAILBOX 
6252 002774 005015 CLR (R55 CLEAR STATUS REGISTER 
6253 002776 011500 MOV (R5) ,RO Y DATA 
6254 003000 032700 000143 BIT #143,R0 ‘VERIFY THAT IE AND CSR BITS ARE CLEAR 
6255 003004 001416 BEQ T13CON 31F YES. CONTI 
6256 003006 032767 040000 175406 BIT #BIT14,$SWREG : CHECK FOR LOOP ON ERROR 

(1) 303014 001364 BNE TST13 : GO TO LOOP ERROR 

(2) 003016 012767 000016 175356 MOV #16, SFAT 

(1) 003024 012767 000001 175346 MOV a anscty : MOVE ERROR NUM TO MAILBOX 

(1) 003032 005767 175364 TST $s : CHECK FOR HALT ON ERROR 

(1) 003036 100401 BMI is" : CONTINUE IF SET 

(1) 905049 000000 Me HALT z<STATUS REG DID NOT CLEAR> 
6257 003042 012715 000140 T13CON: MOV #140,aR5 Z INTERRUPT ENABLE FOR A+B 
6258 003046 011500 MOV ars,R 
6259 003050 032700 000140 BIT #140,R0 z INTERRUPT ENABLE BITS SET? 
6260 003054 001016 BNE ‘ INUE IF Y 
6261 003056 032767 040000 175336 BIT #81114 ,$SWREG z CHECK FOR LOOP ON ERROR 

(1) 00 001366 BNE T1 0 TO LOOP ERROR 

(2) 00 012767 000017 175306 MOV #17, SFATAL 

(1) 003074 012767 000001 175276 MOV #1, $MSGTY : MOVE ERROR NUM TO MAILBOX 

(1) 003102 005767 175314 TST SSWREG ; CHECK FOR HALT ON ERROR 

(1) 003106 100401 CONTINUE IF SET 

(1) 903119 000000 * HALT :<ENABLE BITS NOT ON> 

(1) postt3 032767 002000 175302 BIT #BIT10,$SWREG ; CHECK FOR LOOP ON TEST 
“fl 003120 001322 BNE TST13 : GO TO LOOP ON TEST 
6566 003122 TST14: 





F 2 
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(2) 003122 012767 000014 175254 MOV #14,$TESTN MOVE TEST NUMBER TO MAILBOX 
6264 003130 012715 000140 MOV #140,aR5 ‘SET INTERRUPT ENABLE FLOPS 
6265 003134 000005 RESET 'CLEAR THOSE ELOPS 

6266 003136 011500 MOV ar5,RO ‘COPY CONTENTS OF DRCSR TO RO 

67 003140 032700 000140 BIT #146,R0 :TEST INTERRUPT ENABLE BITS 
6268 003144 001416 BEQ :BR IF CLEARED 
6269 003146 032767 040000 175246 BIT #81114, $SUREG : CHECK FOR LOOP ON ERROR 

(1) 003154 901362 BNE TST14 : GO TO LOOP ERROR 

(2) 003156 012767 000020 175216 MOV #20 SFATAL 

(1) 003164 012767 000001 175206 MOV 1, $MSGTY : MOVE ERROR NUM TO MAILBOX 

(1) 003172 005767 175224 TST $s WREG : CHECK FOR HALT ON ERROR 

(1) 003176 100401 BMI 1$ : CONTINUE IF SET 

(1) 903200 000000 - HALT :<INTERRUPT ENABLE DID NOT CLEAR> 

(1) 003202 032767 002000 175212 BIT #B1T10,$SWREG ; CHECK FOR LOOP ON TEST 
fh 003210 001344 BNE TST14 : GO TO LOOP ON TEST 
6271 003212 TST15: 

(2) 003212 012767 000015 175164 MOV #15, $TESTN MOVE TEST NUMBER TO MAILBOX 
6272 003220 052715 000001 BIS 1,aR * SHOULD SET REQ A ALSO 
6273 003224 032715 000201 BIT #201,aR5 ‘VERIFY THAT REQ A IS SET 
6274 003230 001402 BEQ 5$ sFLAG ERROR MESSAGE “iF NO 
6275 003232 005015 CLR ars SCLEAR STATUS REGISTER 
6276 003234 000416 BR 1$ :GO TO NEXT TEST 
6277 003236 5$: 

(1) 003236 032767 040000 175156 BIT #BIT14,$SWREG ; CHECK FOR LOOP ON ERROR 

(1) 003244 001362 BNE TST15 : GO TO LOOP ERROR 

(2) 003246 012767 000021 175126 MOV #21 SEATAL 

(1) 003254 012767 000001 175116 MOV 1 SHsct : MOVE ERROR NUM TO MAILBOX 

(1) 003262 005767 175134 TST Sst ; ar FOR HALT ON ERROR 

(1) 0032 BMI oe ONTINUE IF SET 

(1) 003270 000000 HALT 3<A REQ DID NOT SET> 
oft ) 003272 1$: 





fo 
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5 | CNKAFA.P11  28-DEC=82 14:53 21 A REQ DID NOT SET SEQ 0019 
6280 003272 TST16: 
(2) 003272 012767 000016 175104 MOV #16,$TESTN : MOVE TEST NUMBER TO MAILBOX 
6281 003300 052715 000002 BIS [SHOULD SET REQ B 
003304 032715 100002 BIT #100002,aR5 VERIFY Y TH HAT REQ B IS SET 
6283 003310 001402 BEQ rt 3 LAG ERROR MESSAGE IF NO 
6284 003312 005015 CLR ars CLEAR STATUS REGISTER 
6285 003314 000416 - BR 1$ :G0 TO NEXT TEST 
<1) 003316 032767 040000 175076 BIT WBIT14,$SWREG ; CHECK FOR LOOP ON ERROR 
(1) 003324 001362 BNE TST16 : GO TO LOOP ERROR 
(2) 003326 012767 000022 175046 MOV #22, $FATAL 
(1) 003334 012767 000001 175036 MOV #1, $MSGTY : MOVE ERROR NUM TO MAILBOX 
(1) 003342 005767 175054 TST SSWREG : CHECK FOR HALT ON ERROR 
(1) 003346 BMI 1$ : CONTINUE IF SET 
(1) 003350 000000 HALT :<B REQ DID NOT SET> 
(1) 003352 1$: 
6287 
6288 003352 TST17: 
(2) 003352 012767 000017 175024 MOV #17,$TESTN : MOVE TEST NUMBER TO MAILBOX 
6289 360 106427 MTPS #300, ‘LOCK OUT INTERRUPTS 
6290 003364 052715 177777 BIS [LOAD ALL ONES IN STATUS REGISTER 
6291 003370 022715 100343 CMP #106343, (RS) | :VERIFY THAT ALL WRITE BITS ARE SET IN DRCSR 
292 003374 901416 BEQ :BR IF SET 
6293 003376 032767 040000 175016 BIT ¥a1s54 .SSUREG : CHECK FOR LOOP ON ERROR 
(1) 003404 001362 BNE TST17 : GO TO LOOP ERROR 
(2) 003406 012767 000023 174766 MOV #23, $FATAL 
(1) 003414 012767 000001 174756 MOV #1,$MSGTY : MOVE ERROR NUM TO MAILBOX 
(1) 3420 005767 174774 TST SSWREG : CHECK FOR HALT ON ERROR 
(1) 003426 100401 BMI 1$ : ¢ SET 
(1 0034 30 000000 so HALT :<INCORRECT DATA IN REG> 
6294 003432 042715 000003 TI7CON: BIC #3,aR5 ICLEAR CSR BITS 
6295 003436 032715 000140 BIT #140,aR5 :TEST INTERRUPT ENABLE BITS 
6296 003442 001016 BNE 1 SCOTINUE IF STILL S 
6297 003444 032767 040000 174750 BIT #BIT14,$SWREG : CHECK FOR LOOP ON ERROR 
(1) 003452 001367 BNE T17CON : GO TO LOOP ERROR 
(2) 003454 012767 000024 174720 MOV #24, SFATAL 
| (1) 003462 012767 000001 174710 MOV #1, $MSGTY ; MOVE ERROR NUM TO MAILBOX 
(1) 003470 005767 174726 TST SSUREG : CHECK FOR HALT ON ERROR 
(1) 003474 100401 BMI CON TINUE IF SET 
(1) 005476 000000 =“ HALT :<WRONG inf TS SET> 
(1) 003500 032767 002000 174714 BIT #BIT10,$SWREG ; CHECK FOR LOOP ON TEST 
“i, 003506 001321 BNE TST17 : GO TO LOOP ON TEST 
6299 003510 TST20: 
(2) 003510 012767 000020 174666 MOV #20,$TESTN : MOVE TEST NUMBER TO MAILBOX 
6300 003516 106427 000300 MTPS #300 SLOCK OUT INTERRUPTS 
6301 003522 052715 000003 BIS #3,aR5 CET CSR BI 
6302 003526 000005 RESET ‘SHOULD CLEAR INTERRUPT ENABLE FLOPS 
6303 003530 032715 000140 BIT #140, aR5 [VERIFY THAT FLOPS ARE CLEARED 
6304 003534 001416 BEQ 1$ ‘BR IF YES 
6305 003536 032767 040000 174656 BIT #BIT14, SSWREG : CHECK FOR LOOP ON ERROR 
(1) 003544 001361 BNE TST20 : GO TO LOOP ERROR 
(2) 003546 012767 000025 174626 MOV #25, SFATAL 
(1) 003554 012767 000001 174616 MOV #1 ERSGTY. : MOVE ERROR NUM TO MAILBOX 
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\CNKAFA.P11  2B=DEC=82 14:53 ERROR 25 RESET DID NOT CLEAR BITS SEQ 0020 
| (1) 003562 005767 174634 TST SSWREG : CHECK FOR HALT ON ERROR 
| (1) 003566 100401 BMI 1$ : CONTINUE IF SET 
| (1) 903570 000000 - HALT :<RESET DID NOT CLEAR BITS> 
(1) 003572 032767 002000 174622 BIT #B1T10,$SWREG ; CHECK FOR LOOP ON TEST 
ASH 003600 001343 BNE TST20 : GO TO LOOP ON TEST 
6307 ZNOTE: THE WRAP CABLE MUST BE INSTALLED TO EXECUTE 
6308 ; TESTS 21-27 
6309 003602 TST21: 
003602 012767 000021 174574 MOV #21,$TESTN : MOVE TEST NUMBER TO MAILBOX 
6310 003610 032767 000400 174604 BIT #5178, $SWREG 
6311 003616 001402 BEQ LP21 :D0 TESTS IF NOT INHIBITED 
6312 003620 000167 000710 JMP TST999 SIF INH 
6313 003624 005015 LP21: CLR ars : CLEAR STATUS REGISTER 
6314 003626 005215 INC ars R 
6315 003630 105715 TSTB = ARS CHECK FOR REQ A FLAG 
6316 003632 100416 BMI 1$ :BR IF SET 
6317 003634 032767 040000 174560 BIT #B1T14, SSWREG : CHECK FOR LOOP ON ERROR 
(1) 003642 001357 BNE TST21 + GO TO LOOP ERROR 
(2) 003644 012767 000026 174530 MOV #26, $FATAL 
(1) 003652 012767 000001 174520 MOV #1, $MSGTY : MOVE ERROR NUM TO MAILBOX 
(1) 003660 005767 174536 TST SSUREG ; CHECK FOR HALT ON ERROR 
(1) 003664 100401 BMI 1$ CONTINUE IF SET 
(1) 003666 000000 * HALT :<BITO DID NOT SET BIT?> 
(1) 003670 032767 002000 174524 BIT #B1T10,$SWREG ; CHECK FOR LOOP ON TEST 
6} 003676 001341 BNE Tete : GO TO LOOP ON TEST 
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CNKAFA.P11  28-DEC=82 1 26 BITO DID NOT SET BIT7 SEQ 0021 
6320 003700 TST22: 
(2) 003700 012767 000022 174476 MOV #22, $TESTN : MOVE TEST NUMBER TO MAILBOX 
6321 003706 012715 000002 MOV #2, aR5 SSET CSRI 
6322 003712 005715 TST ars : CHECK FOR REQ B FLAG 
6323 003714 100416 BMI 1$ T 
6324 003716 032767 040000 174476 BIT #81114, $SUREG ; : CHECK FOR LOOP ON ERROR 
(1) 003724 001365 BNE TST22 : GO TO LOOP ERROR 
(2) 003726 012767 000027 174446 MOV #27, SFATAL 
(1) 003734 012767 000001 174436 MOV #7 i gmscrye : MOVE ERROR NUM TO MAILBOX 
(1) 003742 005767 174454 TST SSWREG ; CHECK FOR HALT ON ERROR 
(1) 003746 100401 BMI CONTINUE IF SET 
(1) 005750 i HALT :<BIT1 DID NOT SET BIT15> 
(1) 003752 032767 002000 174442 BIT #BIT10,$SWREG ; CHECK FOR LOOP ON TEST 
(1) 003760 001347 BNE TST22 + GO TO LOOP ON TEST 
6325 003762 TST23: 
(2) 003762 012767 000023 174414 MOV #23, $TESTN : MOVE TEST NUMBER TO MAILBOX 
6326 003770 012715 000003 MOV #3,aR5 =CSRO AND CSR1 
6327 003774 017500 MOV (R5) RO COPY DATA’ 
6328 003776 022700 100203 CMP #100203,R0 : COMPARE DATA 
6329 004002 001416 BEQ 1$ :BR IF GOOD DATA IS RECEIVED 
6330 004 032767 040000 174410 BIT WBIT14,$SWREG  ; CHECK FOR LOOP ON ERR 
(1) 004012 001363 BNE TST23 : GO TO LOOP ERROR 
(2) 004014 012767 000030 174360 MOV #30, $FATAL 
(1) 004022 012767 000001 174350 MOV #1, $MSGTY : MOVE ERROR NUM TO MAILBOX 
(1) 004030 005767 174366 TST SSUWREG : CHECK FOR HALT ON ERROR 
(1) 004034 100401 BMI > CONTINUE IF SET 
(1) 004056 000000 = HALT :<INCORRECT BITS SET IN REG> 
(1) 004040 032767 002000 174354 BIT WBIT10,$SWREG  ; CHECK FOR LOOP ON TEST 
mah 004046 001345 BNE TST23 : GO TO LOOP ON TEST 
6332 :CAN WE RAISE INTERRUPT ‘‘A’* 
6333 004050 TST24: 
(2) 004050 012767 000024 174326 MOV #24, $TESTN : MOVE TEST NUMBER TO MAILBOX 3 
6334 004056 106427 000300 MTPS #300 SLOCK OUT INTERRUPTS 
6335 004062 012706 001200 MOV #STKPTR,SP sINITIALIZE STACK POINTER 
336 004066 012777 004110 175134 MOV nS @DRVECA S INTERRUPT RETURN POINTER 
6337 004074 012715 000101 MOV #101, aR5 S INTERRUPT ENABLE AND CSRO 
6338 004100 106427 000000 MTPS = #0 TALLOW INTERRUPTS 
6339 004104 000240 NOP 
6540 004106 000402 BR 5$ ZNO INTERRUPT 
6342 004110 005015 4$: CLR ars : CLEAR INTERRUPT ENABLE 
6343 004112 000416 BR 1$ :GO TO NEXT TEST 
6344 004114 S$: 
(1) 004114 032767 040000 174300 BIT WBIT14,$SWREG ; CHECK FOR LOOP ON ERROR 
(1) 004122 001352 BNE TST24 ; GO TO LOOP ERROR 
(2) 004124 012767 000031 174250 MOV #31, SFATAL 
(1) 004132 012767 000001 174240 MOV #1, $MSGTY : MOVE ERROR NUM TO MAILBOX 
(1) 006140 005767 174256 TST SSUREG + CHECK FOR HALT ON ERROR 
(1) 004144 100401 BMI 1$ : CONTINUE IF SET 
(1) 004.146 000000 “ HALT :<NO A INTERRUPT> 
(1) 004150 032767 002000 174244 BIT #BIT10,$SWREG ; CHECK FOR LOOP ON TEST 
(1) 004156 0013 BNE TST24 : GO TO LOOP ON TEST 
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CNKAFA.P11  28=DEC=82 14:53 ERR NO A INTERRUPT SEQ 0022 
6345 o ee 
6346 *RAISE INTERRUPT 
6347 004160 TST25: 

(2) 004160 012767 000025 174216 MOV #25,$TESTN : MOVE TEST NUMBER TO MAILBOX 
6348 004166 012706 001200 MOV #STKPTR,SP SIN NITIALIZE STACK POINTER 
6349 004172 106427 000300 -  MTPS #300 ‘LOCK OUT INTERRUPTS 
6350 004176 012777 004220 175030 MOV #4$,aDRVECB S INTERRUPT RETURN POINTER 
6351 004204 012715 000042 MOV #42,aR5 SIE AND CSR 
6352 004210 106427 000000 MTPS = #0. SALLOW INTERRUPTS 
6353 004214 000240 NOP 
6354 004216 000402 BR 5$ :NO_INTERR 
6355 094220 005015 4$: CLR ars [CLEAR ENTERRUPT ENABLE 
6356 004222 000416 BR 1$ :GO TO NEXT TEST 
6357 004224 5$: 

(1) 004224 032767 040000 174170 BIT WBIT14,$SWREG ; CHECK FOR LOOP ON ERROR 

(1) 004232 001352 BNE TsT25 : GO TO LOOP ERROR 

(2) 006234 012767 000032 174140 MOV #32, SFATAL 

(1) 004242 012767 000001 174130 MOV #1, $MSGTY : MCvc ERROR NUM TO MAILBOX 

(1) 004250 005767 174146 TST SSWREG : CHECK OR HALT ON ERROR 

(1) 004254 100401 BMI 1$ ONTINUE IF SET 

33 opesee 000000 1s HALT 3<NO B INTERRUPT> 

(1) 004260 032767 002000 174134 BIT #BIT10,$SWREG ; CHECK FOR LOOP ON TEST 
iB 004266 001334 BNE TST25 : GO TO LOOP ON TEST 
6359 sTEST FOR INTERRUPT FROM DEVICE 
6360 004270 TST26: 

(2) 004270 012767 900 026 174106 MOV #26, $TESTN MOVE TEST aliuMBER TO MAILBOX 
6361 004276 017702 MOV @DRLVLA,R2 i SAVE INTERR W 
6362 004302 016777 174736 174722 LP26: MOV PL, @DRLVLA LOCK OUT SUCCESSIVE INTERRUPTS 
6363 004310 012706 001200 MOV #STKPTR, SP TINITIALIZE STACK POINTER 
6364 004314 012777 004370 174706 MOV #1$, aDRVECA S INTERRUPT RETURN POINTER 
6365 004322 012715 000101 MOV #101,aRS ‘SET INTERRUPT ENABLE-AND CSRO 
6366 004326 106427 000000 MTPS = #0 TALLOW INTERRUPTS 
6367 004332 000240 NOP 
6368 004334 5$: 

(1) 004334 032767 040000 174060 BIT #B1T14,$SWREG ; CHECK FOR LOOP ON ERROR 

(1) 004342 001352 BNE TST26 : GO TO LOOP ERROR 

(2) 004344 012767 000033 174030 MOV #33, SFATAL 

(1) 004352 012767 000001 174020 MOV #1 1, $m MSGTY ; MOVE ERROR NUM TO MAILBOX 

(1) 004360 005767 174036 TST SSWREG 3 CHECK FOR HALT ON ERROR 

(1) 004364 100401 BMI 1$ : CONTINUE IF SET 

(1) 004 566 000000 * HALT :<NO DEVICE INTERRUPT> 

(1) 004370 032767 002000 174024 BIT WBITIO,$SWREG ; CHECK FOR LOOP ON TEST 

(1) 004376 001341 BNE LP26 O LOOP ON TEST 
6369 004400 005015 CLR ars *CLEAR INTERRUPT ENABLE 
6370 004402 010277 174624 MOV R2,@DRLVLA ‘RESTORE INTERRUPT PSW 
6371 ; PLU WRAP TEST 
6372 004406 TST2?7: 

(2) 004406 012767 000027 173770 MOV #27,STESTN ; MOVE TEST NUMBER TO MAILBOX 
6373 004414 005000 CLR SSET UP STARTING DATA 
6374 004416 010077 174600 WLOOP: MOV RO. a@DROBUF + SEND DATA 
6375 004422 027700 174576 CMP @DRIBUF ,RO + CHECK THE DATA 
6376 004426 001020 PNE 53 + ERROR IF NOT RIGHT 
6377 430 005200 INC RO 3; CHANGE DATA 
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6378 004432 001434 BEQ 1$ sNEXT TEST IF END 

63 434 022700 031460 3$: cMP #31460,R0 : CHECK FOR TEST MODULE CODE 

6380 004440 001411 BEQ & 

6381 004442 022700 031461 CMP #31461 ,R0 

6382 004446 001406 BEQ 4$ 

6383 004450 022700 031462 CMP #31462 ,RO 

6384 004454 001403 BEQ 4$ 

6385 004456 022700 031463 CMP #31463,R0 

6386 004462 001355 BNE WLOOP 

6387 004464 005200 4$: INC R 

6388 004466 000762 BR 3$ : RECHECK DATA CODE 

6389 004470 5$: 
(1) 004470 032767 040000 173724 BIT #BIT14,$SWREG ; CHECK FOR LOOP ON ERROR 
(1) 004476 001347 BNE P : GO TO LOOP ERROR 
(2) 500 012767 000034 173674 MOV #34 ,SFATAL 
(1) 004506 012767 000001 173664 MOV #1, SMSGTY ; MOVE ERROR NUM TO MAILBOX 
(1) 004514 005767 173702 TST SSWREG 3 CHECK FOR HALT ON ERROR 
(1) 004520 100401 BMI 1$ 3 CONTINUE IF SET 
a3 gos Se 000000 1s HALT z<WRAP DATA DID NOT COMPARE> 
(1) 004524 032767 002000 173670 BIT #BIT10,$SWREG ; CHECK FOR LOOP ON TEST 
(1) 004532 001325 BNE TST27 : GO TO LOOP ON TEST 
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\CNKAFA.P11 =. 28=DEC=82 14:53 34 WRAP DATA DID NOT COMPARE SEQ 0024 
| 6391 
| 6392 
6393 004534 TST999: 
6394 004534 005237 000406 NC a#SPASS : INCREMENT PASS COUNT 
6395 004540 132767 000040 173653 BITB #40,$ENVM ! WILL APT ALLOW PRINTING? 
6396 004546 001010 BNE T : NO 
6397 004550 012700 004654 MOV #MSG,RO : GET MESSAGE ADDRESS 
6398 004554 105737 177564 WAIT: TSTB aaTPS : CHECK IF TTY READY 
6399 004560 100375 BPL WAIT : IF NO 
6400 004562 112037 177566 MOVB  (RO)+,a#TPB : PRINT THE CHARACTER 
6401 004566 001372 BNE WAIT : NEXT IF NOT DONE 
6402 004570 013700 000042 ACT: MOV a#42,RO0 : CHECK ACT 
6403 004574 001405 BEQ GOAGIN : KEEP GOING 
6404 004576 000005 RESET 
6405 004600 004710 SENDAD: JSR PC, (RO) : ACT HOOKS 
6406 004602 000240 NOP 
6407 604 000240 NOP 
6408 004606 000240 NOP 
6409 610 000167 174500 GOAGIN: JMP AROUND ;+ DO ANOTHER PASS 
6410 ES ON PASSES >1 THE TITLE PRINTOUT WILL BE SUPPRESSED 
6412 004614 STORE 
6413 177564 TPS=177564 
6414 177566 TPB=177566 
6415 004614 177777 PASSPT: -1 
6416 004616 047103 040513 026506 TITLE1:.ASCIZ .CNKAF=AQ DRV11 DIAGNOSTIC. <15><12> 


0 

17 004654 047105 020104 043117 MSG: eASCIZ .END OF PASS.<15><12> 
004662 050040 051501 006523 
004670 000012 

6418 -EVEN 


z 
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CNKAFA.P11  28-DEC=82 14:53 RROR 34 WRAP DATA DID NOT COMPARE SEQ 0025 | 
| oe 
| $421 
G02 sENTER HERE FOR POWER FAIL 
6424 004672 010046 PFAIL: MOV %20,-(6) ZSAVE REGISTER OR STACK 
6425 004674 010146 MOV %1,-(6) ‘WHEN POWERING DOWN 
6426 004676 010246 MOV %2,-(6) 
6427 700 010346 MOV %3,-(6) 
6428 004702 010446 MOV %4,-(6) 
6429 010546 MOV %5,~(6) 
6430 004706 016746 173112 MOV 24,-(6) 
6431 004712 010637 004726 MOV 16° a#SAVR6 :STORE STACK POSITION 
6432 004716 012737 004730 000024 MOV #RESTAR, a#24 
6433 004724 000000 HALT sHALT ON POWER DOwN NORMAL 
6434 004726 000000 SAVR6: 0 ‘STACK IS SAVED 
6435 004730 016706 177772 RESTAR: MOV SAVR6 %6 ‘RESTORE REGISTER OFF STACK 
6436 004734 012667 173064 MOV +24 :WHEN POWERING UP 
6437 004740 012605 MO 
6438 42 012604 MO RET 
6439 004744 012603 MOV (6)+,%3 
6440 012602 MOV (6)+,%2 
6441 004750 012601 MOV (6)+#,%1 
6442 004752 012600 MOV (6)+,%0 
6443 004754 000137 001256 JMP a4START 
6444 r:THE FOLLOWING WAS ADDED TO INIT BRKVEC AND LKVEC TO BE SPECIFIC TO 
6445 SBC 11781 PROCESSOR. 
6446 004760 OINT=. zSAVE POINTER 
6447 000100 100 
6448 000100 000102 000002 102.2 :DISMISS BEVNT 
6449 000140 214 
6450 000149 170000 170000 :0DT START ADDRESS 
6451 000142 000300 300 
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CNKAFA.P11 28-DEC-82 14:53 CROSS REFERENCE TABLE <= USER SYMBOLS SEO 0026 
E = 000000 6057 
ACD = 000000 6057 
ACDU2 = 000000 6057 
ACPUOP= 000000 6057 
ACT 004570 6396 64024 
ADDWO = 000000 6057 
ADDW1 = 000000 6057 
= 000000 6057 
ADDWI1= 000000 6057 
ADDW12= 000000 6057 
ADDW1S= 000000 6057 
ADDW14= 000000 6057 
ADDW1S= 000000 6057 
ADDW2 = 000000 6057 
= 0000 6087 
ADDS = 0000 6057 
ADDWS = 000000 6057 
ADDW = 000000 6057 
ADDW? = 000000 6057 
ADDWB = 000000 6057 
= 000000 6087 
ADEVCT= 000000 6057 
ADEVM = 000000 6057 
NV = 000000 6057 
ENVM = 000000 6057 
AFATAL= 000000 6057 
AMADR1= 000000 6057 
DR2= 000000 6057 
AMADR3= 000000 6037 
AMADR4= 000000 6057 
AMAMS1= 000000 6057 
$2= 000000 6057 
AMAMS3= 000000 6057 
AMAMS4= 000000 6057 
AMSGAD= 000000 6057 
AMSGLG= 000000 6057 
AMSGTY= 000000 6057 
AMTYP1= 000000 6057 
AMTYP2= 000000 6057 
AMTYP$= 000000 6057 
AMTYP&= 000000 6057 
APASS = 000000 6057 
APRIOR= 000000 6057 
001314 $101 61134 6409 
ASWREG= 000000 6057 
ATESTN= 000000 6057 
AUNIT = 000000 6057 
= 000000 6057 
AVECT1= 000000 6057 
AVECT2= 000000 6057 
'BITO = 000001 60328 6159 
BIT00 = 000001 60358 
61101 = 0 60328 
Betug = pulls ou <¢F 
BiT0$ = 660010 $0358 
BIT04 = 300020 60328 





CNKAFA MACY11 


@ 
— 
“+ 
So 
wn 
" 


DDOD DODDDOD 
te et py te 
SSs353 s23sss 

nunnon 


x88 $8888 


“J 


w 
RVSSFS VEORSKS 


SESeSs 


3 
3 


s28 


w= 
NSSvo= 


6310 





28=-DEC=82 14:54 PAGE 61-1 
CROSS REFERENCE TABLE == USER SYMBOLS 


6177 
6324 


6161 
6269 


6068 


6240* 


6185 
6370* 


6155* 
6238* 


6174 6183* 6190" 6191 
6374* 
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CNKAFA.P11 28-DEC-82 14 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0028 
LP21 003624 6311 63134 
LP26 =: 004302 63624 6368 
LP? 002364 ogee 6214 6215 
_ 000035 85354 134 61384 6161 61644 61718 61774 61874 61944 62014 62154 62244 62324 
= # 
62474 62564 62614 6269# 6277 6286 62934 62974 63054 65174 635244 63308 63444 
63574 63684 63894 
ODTST = 170000 60324 
= 000426 60624 
PASSPT 004614 64154 
PFAI 004672 6118 64244 
PIRQ = 177772 60324 
PIRQVE= 000240 60324 
PL 001244 60894 6362 
POINT = 004760 64464 6452 
PRO = 000000 60324 
PRi = 000040 60324 
PR2 = 000100 60324 
PRS = 000140 60324 
PR4 = 000200 60324 
PRS = 000240 60324 
PR6 = 000300 60324 
PR? = 000340 60324 
PS = 177776 60324 
PSW = 177776 60324 
PWRVEC= 000024 60324 
a 
RESTAR 804750 6432 964354 
RESVEC= 000010 60324 
SAVR6 004726 6431* 64344 6435 
STACK = 001100 60324 
START 001256 6092 61004 6443 
START1 001246 6050 60914 
STKLMT= 177774 60324 
STKPTR= 001200 60124 6091 6140 =6151 6335 6348 6363 
STORE 004614 64124 
swO. == 000001 60324 
Sw0O = 000001 60324 
Sw01 = 000002 60324 
SwO2 = 000004 60324 
SwOS = 000010 60324 
Sw04 = 000020 60324 
SwOS = 000040 60324 
Sw06 = 000100 60324 
SwO7 = 000200 60324 
SwO8 = 000400 60324 
SwO9 = 001000 60324 
Swi = = 000002 60324 
SWw10 = 002000 602 60324 
SWw11 = 004000 60274 60324 
SWwi2 = 010000 60324 
SW13 = 020000 60284 petted 
SW14 = 040000 602 60324 
Swi5 = 100000 60324 
SW2 = 000004 60324 
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64144 
6398 64134 


6256 6261 


6297 
6161 6171 


9 
61484 61724 61804 
62884 62994 63094 


61 
6 


894 
3204 


619 
632 


CROSS REFERENCE TABLE == USER SYMBOLS 


Se 883 


044 
334 


62184 
63474 


62264 
63604 


62334 
6372# 


62518 


SEQ 0029 


62634 


gs 
seats MACY11 Zo geqpec~62 14:54 PAGE 61-4 
2 4:5 


1046) 
CNKAFA.P11 =DEC-82 1 CROSS REFERENCE TABLE <= USER SYMBOLS SEQ 0030 
1 60574 6100 6395 





* 6164* 6177* 6187* 6 
* 6 


6171+ * 6215* 
6277* 6286*  6293*  6297% * 


6324+ 
6161* 6164* 6171* 6177* 6187* 6194* 6201* 6215*  6224* 6232+ 
6269* 6277+ 6286* 6293* 6297* 6305* 6317*  6324*  6330*  6344* 


6149 6161 6164 6171 6177 6181 6187 6194 6201 6215 
6256 6261 6269 6277 6286 6293 6297 36305 6310 6317 


6389 
6148* 6172* 6180* 6189*  6196*  6204*  6218*  6226*  6233*  6251* 
6288+ 6299+ 6309* 6320* 6325*  6333*  6347* 


6045 6046 60514 6052 6054 60564 60584 6059% 6143 6446 


em a ne ne ne | es ee es 
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6171 6177 = 6187 = 6194 6201 6215 6224 6232 6247 6256 
6297 = 6305 6317 6324 6330 6344 6357 6368 6389 

6171 6177s 6187 6194 6201 6215 6224 6232 6247 6256 
6297 = 6305 6317 6324 6330 6344 6357 6368 «= («6389 

6189 6196 6204 6218 6226 6233 6251 6263 = 6271 6280 
6333 6347 =—6 6360S 6372 

6189 6196 6204 6218 6226 6233 6251 6263 6271 6280 
6333 6347 6360 6372 
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CNKAFA.P11 28-DEC=-82 14:53 CROSS REFERENCE TABLE == MACRO NAMES SEQ 0032 


-$ROOC 797. 
-SREAD  3395# 
~SR2AZ = 49584 
-SSAVE 396 
-$SB2D 47714 
-$SB20 48748 
~SSCOP 24544 
-SSIZE 43614 
-SSUPR 491 


3a 
gen pit ad 60314 


-STYPD 094 
-STYPE 29854 60314 
-STY 31124 


- ABS. 004760 000 


ERRORS DETECTED: 0 
eee a Owe cons TOC=CNMAC2.SML,CNKAFA.P11 
RUN-TIME: 9 


RUN-TIME RATIO: 49/17=2.7 
CORE USED: 32k (64 PAGES) 


